home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #110 (1991-01)(Amiga User Group Deutschland e.V.).adf
/
DiskLabel_V1.0
/
DiskLabel_V1.0
< prev
next >
Wrap
Text File
|
1989-07-03
|
4KB
|
218 lines
REM DiskLabel V1.0 Written by Christian Koot in 1990
WINDOW 1 , " DiskLabel V1.0 (c) Christian Koot Oct.1990" ,, 28
GOTO Hilfe
Steuerung:
PRINT
INPUT " Wie geht´s weiter? (Möglichkeiten mit <h>): " , frag$
GOTO Hauptteil
Hauptteil:
IF frag$ = "ä" THEN GOTO Aenderung
IF frag$ = "e" THEN GOTO Eingabe
IF frag$ = "a" THEN GOTO Anzeige
IF frag$ = "d" THEN GOTO Druck
IF frag$ = "f" THEN GOTO Diskoperationen
IF frag$ = "i" THEN GOTO Infos
IF frag$ = "h" THEN GOTO Hilfe
GOTO Hauptteil
Eingabe:
CLS
PRINT
INPUT " Diskname: " , label$
PRINT
INPUT "1: " , a$
INPUT "2: " , b$
INPUT "3: " , c$
INPUT "4: " , d$
INPUT "5: " , e$
INPUT "6: " , f$
INPUT "7: " , g$
INPUT "8: " , h$
GOTO Steuerung
Aenderung:
CLS
INPUT "Welche Eingabe wollen Sie ändern? (1-8 bzw. Diskname)" , alter$
IF alter$ = "1" THEN GOTO Einae
IF alter$ = "2" THEN GOTO Zweae
IF alter$ = "3" THEN GOTO Dreae
IF alter$ = "4" THEN GOTO Vieae
IF alter$ = "5" THEN GOTO Fueae
IF alter$ = "6" THEN GOTO Secae
IF alter$ = "7" THEN GOTO Sieae
IF alter$ = "8" THEN GOTO Achae
IF alter$ = "Diskname" THEN GOTO Disae
GOTO Aenderung
Einae:
PRINT
PRINT "Alter PRG.Name: " ; a$
PRINT
INPUT "Neuer PRG.Name: " , a$
GOTO Frage
Frage:
PRINT
PRINT
INPUT "Wollen Sie nochwas ändern? (j/n) " , quest$
IF quest$ = "j" THEN GOTO Aenderung
IF quest$ = "n" THEN GOTO Steuerung
GOTO Frage
Zweae:
PRINT
PRINT "Alter PRG.Name: " ; b$
PRINT
INPUT "Neuer PRG.Name: " , b$
GOTO Frage
Dreae:
PRINT
PRINT "Alter PRG.Name: " ; c$
PRINT
INPUT "Neuer PRG.Name: " , c$
GOTO Frage
Vieae:
PRINT
PRINT "Alter PRG.Name: " ; d$
PRINT
INPUT "Neuer PRG.Name: " , d$
GOTO Frage
Fueae:
PRINT
PRINT "Alter PRG.Name: " ; e$
PRINT
INPUT "Neuer PRG.Name: " , e$
GOTO Frage
Secae:
PRINT
PRINT "Alter PRG.Name: " ; f$
PRINT
INPUT "Neuer PRG.Name: " , f$
GOTO Frage
Sieae:
PRINT
PRINT "Alter PRG.Name: " ; g$
PRINT
INPUT "Neuer PRG.Name: " , g$
GOTO Frage
Achae:
PRINT
PRINT "Alter PRG.Name: " ; h$
PRINT
INPUT "Neuer PRG.Name: " , h$
GOTO Frage
Disae:
PRINT
PRINT "Alter Diskname: " ; label$
PRINT
INPUT "Neuer Diskname: " , label$
GOTO Frage
Anzeige:
CLS
PRINT
PRINT" Diskname: " ; label$
PRINT
PRINT" 1: " ; a$
PRINT" 2: " ; b$
PRINT" 3: " ; c$
PRINT" 4: " ; d$
PRINT" 5: " ; e$
PRINT" 6: " ; f$
PRINT" 7: " ; g$
PRINT" 8: " ; h$
GOTO Steuerung
Druck:
CLS
PRINT
PRINT" Ist der Drucker bereit? (Drücken Sie irgendeine Taste):"
WHILE INKEY$ = "" : WEND
LPRINT" " ; label$
LPRINT
LPRINT"" ; a$
LPRINT"" ; b$
LPRINT"" ; c$
LPRINT"" ; d$
LPRINT"" ; e$
LPRINT"" ; f$
LPRINT"" ; g$
LPRINT"" ; h$
GOTO Anzeige
Infos:
CLS
PRINT" DiskLabel 1.0 darf in jede PD-Serie aufgenommen werden, sofern ich davon"
PRINT
PRINT" schriftlich in Kenntnis gesetzt werde. Dieses Programm und seine Begleit-"
PRINT
PRINT" files müssen unverändert und vollständig übernommen werden. Dieses Prog-"
PRINT
PRINT" ist, wie gesagt, zum schnellen und unkomplizierten Bedrucken von Labels"
PRINT
PRINT" von 3,5 Zoll Disks gedacht und daher kann man es mit anderen Programmen"
PRINT
PRINT" in den Punkten Aufmachung und Funktionen nicht verglichen werden. Auf je-"
PRINT
PRINT" den Fall ist es unglaublich billig, da es PD ist. Für Verbesserungsvor-"
PRINT
PRINT" schläge, Tips und Fehlermeldungen bin ich jederzeit dankbar. Meine Adresse:"
PRINT
PRINT
PRINT" Christian Koot"
PRINT" Neißeweg 38"
PRINT" 3588 Homberg/Efze"
GOTO Steuerung:
Hilfe:
CLS
PRINT
PRINT" ä - Eingaben ändern"
PRINT" e - Total neue Eingaben"
PRINT" a - Eingaben anzeigen"
PRINT" d - Drucken"
PRINT" f - Diskoperationen"
PRINT" i - Infos"
PRINT" h - Hilfe"
PRINT
GOTO Steuerung
Diskoperationen:
CLS
PRINT
INPUT " Wollen Sie Laden oder Speichern? (l/s) " , weg$
IF weg$ = "s" THEN GOTO Speichern
IF weg$ = "l" THEN GOTO Laden
GOTO Diskoperationen
Speichern:
PRINT
INPUT " Geben Sie bitte das Verzeichnis an: " , spfad$
CHDIR spfad$
PRINT
PRINT " Die Daten zu " ; label$ ; " werden gespeichert."
OPEN label$ FOR OUTPUT AS 1
PRINT #1, label$
PRINT #1, a$
PRINT #1, b$
PRINT #1, c$
PRINT #1, d$
PRINT #1, e$
PRINT #1, f$
PRINT #1, g$
PRINT #1, h$
CLOSE 1
GOTO Steuerung
Laden:
PRINT
INPUT " Geben Sie das Verzeichnis an: " , lpfad$
CHDIR lpfad$
PRINT
PRINT
INPUT " Geben Sie den Dateinamen an : " , lad$
OPEN lad$ FOR INPUT AS 1
INPUT #1, label$
INPUT #1, a$
INPUT #1, b$
INPUT #1, c$
INPUT #1, d$
INPUT #1, e$
INPUT #1, f$
INPUT #1, g$
INPUT #1, h$
CLOSE 1
GOTO Anzeige